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1 — Mailbox movie contains the following variables: ^ 

3 on startMovie 

4 global inbxG_username — current user name 

5 global mbxG_messages list of messages 

6 global mbxG_nMsgs number of messages in mailbox 

7 global mbxG_boxName — current mailbox name 

8 global mbxG_whichLine current hi lite line = msgNumber 

9 global robxG_subtractLine does this read the previous line as 
1 0 well? 

1 1 

12 — global mbxG_clickCo\int 

13 — may be used for double click on message to pass 

14 — message to API 

15 — used because "if the doubleclick" in Director is buggy, but 
1 6 

1 7 — called by API to Main Movie 

18 tell the stage to emh_continue (tmailbox) 

1 9 

2 0 end 
21 

22 

2 3 StopMovie handler in a MIAW is called only when the movie 

2 4 --.plays through to the end or jumps to another movie. 

2 5 — It isn't called when the window is closed or the window 

2 6 — is deleted by the forget window command. 

27 

2 8 on StopMovie 

29 

3 0 c 1 eanUpMovi e ( ) 
31 

3 2 end 
33 

34 

3 5 called to close a MIAW or automatically whenever 

3 6 forgetWindow is called 

37 

3 8 on closeWindow 

39 

4 0 cleanUpMovieO 
41 

4 2 end 
43 

44 

4 5 — cleanUpMovie can be called by both StopMovie and 

4 6 — closeWindow. 

47 clickCount is a global for the doubleclicking function.. 

4 9 on clean0pMovie 

5 0 global mbxG_whichLine, mbxG_subtractLine 

51 global mbxG_nMsgs, mbxG_username, mbxG_clickCount 
5 2 

5 3 — CLEAR FIELDS AND GLOBAL VARIABLES 
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54 

5 5 put into field "MailboxTitle" 

5 6 put into field "prepositionTitle" 

5 7 put into field "MailboxTo" 

5 8 put into field "MailboxSubject" 

5 9 put "" into field "MailboxDate" 
60 

6 1 set inbxG_whichLine = 0 

6 2 set mbxG^subtr act Line = 0 

6 3 set inbxG_nMsgs = 0 

6 4 set mbxG_clickCount = 0 

65 

6 6 if findEmptydneitODer 50) > 50 then 

6 7 set the scriptText of member 50 = 

6 8 end if 
69 

7 0 SET HIGHLIGHT OFF STAGE 
71 

7 2 set the loc of sprite 11 to point (11, -17) 
73 

7 4 end cleanUpMovie 

75 

76 

7 7 API Public Handlers 

78 — — 

79 

8 0 Ugly hack to work around problem with Director startup 

81 of MIAWs. The problem is that, after calling a handler in the 

8 2 MIAW, the StartMovie handler for the MIAW does not run until 

8 3 the calling movie advances to its next frame. 

8 4 Therefore, the calling sequence in the calling movie 

8 5 has to be engineered so that the real handlers in the MIAW do not 

8 6 run until after control has been transfered back to the calling 

8 7 movie. However, at least one handler in the MIAW must be called 

8 8 by the calling movie before the StartMovie handler will run. 

89 

9 0 startMeUp is the fake handler that, when called by the 

91 main movie, will upon return to the main movie, 

9 2 cause this movie's StartMovie handler to run. 

93 

9 4 The second part of this wormy hack is contained in the MIAW's 

9 5 StartMovie handler... It is a call to a workAround handler in 

9 6 the calling movie called continueComponent 

9 7 The calling movie's continueRebus handler calls the real handlers 

9 8 in the MIAW. 

99 

100 on emc_startMeUp 

101 put "Macromedia sucks!" 

102 return(l) 

103 end emc_startMeUp 
104 

105 . 

106 
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107 — initWindow is called by email main when a message handler 

108 — is opened 
109 

110 on emc_initWindow userName 

1 1 1 global mbxG_whichLine, mbxG_subtractLine, mbxG_username 

112 — mbxG_whichLine: track user line selected 

113 — mbxG_subtractLine: allow highlight to follow user selection 
^ 'I ^ — inbxG_msgNum: tracks user selected message number 

115 

116 set mbxG_username = userName 

117 set mbxG_whichLine = 0 

1 1 8 set mbxG_subtractLine = 0 
119 

120 ~ PUPPET THE HIGHLIGHT 
121 

122 puppetSprite 11, TRUE 
123 

124 SET HIGHLIGHT OFF STAGE 
125 

126 set the loc of sprite 11 to point (11, -17) 
1 27 

128 return(l) 

129 end emc_initWindow 
130 

131 — — 

132 

133 more API Public Handlers 

134 

135 

136 closeWindow is not called unless Rebus plays as a MIAW. 

137 

138 on emc.closewindow 

13 9 closeWindow ( ) 

140 return(l) 

141 end emc_closeWindow 
142 

143 

144 ... 

145 

146 on emc.getComponentlnfo 
147 

eventually the MIMEtype field will be application/txt 

149 return( list( "SimpleMail" , 1, #mailbox, ) ) 
150 

151 end emc_getComponentInf o 

152 

153 

154 

155 — the following was called "mbx_giveMessage" with return(O), 

156 but was not called from anywhere and not on API sheet, thus 

157 — no longer a part of the API. 
158 

159 on mbx.getMesaage 



203 
204 
205 
206 
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160 

161 "open" button and doubleclick of highlighted message (not 

162 yet implemented) calls to email main to hand the message 

163 — selected to a message handling movie 

164 — This script was previously the "open" cast memeber script: 
165 

166 global mbxG_whidhLine, mbxG messages 

167 " 

168 set mailData = getAt (rabxG_messages, mbxG whichLine) 
169 

170 tell the stage • 

1 7 1 emh^passMessage (mailData, robxG_whichLine) 

172 end tell 

173 

174 end mbx_getMessage 
175 

176 

177 

178 on mbx_getMessageNumbers 

179 

180 fill me in! 

181 — list of int mbx_getMessageNumbers 
182 

183 end mbx_getMessageNumbers 
184 

185 

186 — Trash messages should return a list of message numbers that are to 

187 be trashed in the mailfile. Email main will rewrite the mail file 

188 When implemented correctly, it will determine which message numbers 
ion ""^ associated with the currently selected lines in the mailbox 
190 — display, update the display to remove these messages from the 

1QO ~~ return the list of deleted message numbers. 

193 on mbx.trashMessages 

194 

lOft needs implementation that can handle multiple messages 

196 also need to rewrite trashit which does not conform to 

]qo ^^'^ ^^^^ ^^-^-y handlers can be called in other movies 
19 8 

1 9 9 trashit 0 

200 return([]) 
201 

202 end mbx_trashMessages 



accepts a mailbox datastructure that consists of a boxname and 
207 --a list of messages 
208 

209 on mbx.openMailbox mailbox 

210 global mbxG_username, mbxG_mes sages, mbxG^boxName , mbxG_nMsgs 
212 set mbxG_boxName = getAt (mailbox, 1) 
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213 put mbxG.userName & '"s " & mbxG.boxName into field "mailboxTitle" 

215 set mbxG_messages = get At (mailbox, 2) 

216 set mbxG^nMsgs = count (mbxG messages) 
217 

218 displayMailbox {mbxG_messages ) 

219 return(l) 
220 

221 end mbx_openMailbox 
222 

223 

224 

225 score script ss aoTheFrame 

226 

227 on exitFrame 
228 

229 go the frame 
230 

231 end 
232 

233 

234 on £ormatFields 
235 

236 — FORMAT THE TEXT FIELDS 
237 

238 setTextlnfo "MailboxTo", " " , "left", "arial", 14, "bold" 

239 setTextlnfo "MailboxSubject " , " "left", "arial", 14, "bold" 

240 setTextlnfo "MailboxDate" , " "left", "arial", 14, "bold" 

242 end formatFields 
243 

244 ' ^ 

OA^ ^-^^^^^ appropriate components from each message 

247 "~ ^^^^ field members with lines aligned for display 

2 48 on displayMailBox msgList 

249 

250 repeat with msg in msgList 

251 put getProp(msg, #from) & RETURN after field "MailboxTo" 

252 put getProp(msg, #re) & RETURN after field "mailboxSubject " 
25 3 put getProp(msg, #date) & RETURN after field "mailboxDate" 
25 4 end repeat 

255 

256 end displayMailbox 
257 

258 on hiliteMessage 

25 9 global mbxG_nMsgs, mbxG_whichLine, mbxG_subtr act Line 
260 

261 — KEEP TRACK OF SELECTED LINE 

262 

263 set mbxG_whichLine = the mouseLine 
264 

265 -« MAKE SURE LINE IS VALID 
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266 

267 if inbxG_whichLine <= 0 then 

268 return (0) — do nothing, errors are caught elsewhere 

269 else if inbxG_whichLine > inbxG_nMsgs then 

270 — user clicked somewhere else in field 

271 set inbxG_whichLine = 0 reset to 0 

272 return{0) 

273 end if 
274 

275 HIGHLIGHT SELECTED LINE 

276 

277 set whichHighlight = inbxG_whichLine + mbxG subtractLine 
278 

279 — since all field members in display are kept synchronized 

280 — any one will do for linePosToLocV 

281 — use "MailboxTo", it's small 
282 

283 set the locV of Sprite 11 to 

284 (99 + linePosToLocV (member "MailboxTo", whichHighlight)) 
285 

286 end hiliteMessage 
287 

288 . 

289 

290 script of cast member mailboxTo 

291 

2 92 on mouseUp 
293 

294 hiliteMessage { ) 
295 

296 end 
297 
298 
299 
300 
301 

302 on mouseUp 
303 

30 4 hiliteMessage () 
305 

306 end 
307 

308 script of cast member mailboxDat< 

309 
310 

311 on mouseUp 
312 

313 hiliteMessage ( ) 
314 

315 end 
316 
317 

318 ^ 



script of cast member mailboxSubject 
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319 script of cast member Up 

320 

321 on mouseDown 
322 

32 3 global inbxG_whichLine , inbxG_subtractLine 
324 

32 5 — SCROLL UP WITH HIGHLIGHT 

326 

32 7 repeat while the mouseDown = TRUE 
328 

32 9 GET NUMBER. USED TO CORRECT FOR DISCREPANCY BETWEEN 

330 — THE MOUSELINE AND THE LINEPOSTOLOCV 

331 THE MOUSELINE GIVES LINE WITHIN FIELD TOTAL 

332 ~ THE LINEPOSTOLOCV USES LINE OF FIELD ON SCREEN 
333 

334 set mbxG_subtractLine = mbxG_subtractLine + 1 

335 

336 if mbxG_subtractLine > 0 then 

337 set inbxG_sub tract Line = 0 

338 end if 
339 

340 

341 — SCROLL ALL FIELDS TOGETHER 

342 

343 ' scrollByLine member "MailboxTo", -1 

344 scrollByLine member "MailboxSubject " , -1 

345 scrollByLine member "MailboxDate" -1 
346 

347 

348 — MOVE HIGHLIGHT WITH LINE, MOVING HIGHLIGHT 

349 OFF SCREEN WHEN LINE MOVES OFF SCREEN 
350 

351 set whichHighlight = mbxG_whichLine + rabxG subtractLine 

352 

35 3 if WhichHighlight <= 0 or whichHighlight >= 22 then 

354 set the loc of sprite 11 to point (11, -17) 

355 else 

356 set the locV of Sprite 11 to (99 + linePosToLocV (member 

357 "MailboxTo", whichHighlight)) 

358 end if 
359 

360 updates tage 

361 

362 end repeat 
363 

364 end 
365 

366 — script of cast member Down 

367 

368 on mouseDown 
369 

370 global mbxG_whichLine, mbxG_subtractLine 
371 
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372 SCROLL DOWN WITH HIGHLIGHT 

373 

374 

375 -~ SCROLL ALL FIELDS TOGETHER 

376 

377 repeat while the mouseDovm = TRUE 

378 

379 scrollByLine member "MailboxTo", 1 

380 scrollByLine member "MailboxSubject" , 1 

381 scrollByLine member "MailboxDate" , 1 
382 

383 

384 GET NUMBER USED TO CORRECT FOR DISCREPANCY BETWEEN 

385 — THE MOUSELINE AND THE LINEPOSTOLOCV 

386 — THE MOUSELINE GIVES LINE WITHIN FIELD TOTAL 

387 THE LINEPOSTOLOCV USES LINE OF FIELD ON SCREEN 
388 

389 set mbxG_subtractLine = mbxG_subtractLine - 1 

390 

391 set amountOfMail = the lineCount of member "MailboxTo" 

392 

393 if mbxG_subtractLine < - amountOfMail + 1 then 

394 set mbxG_subtractLine = - amountOfMail + 1 

395 end if 
396 

397 

398 MOVE HIGHLIGHT WITH LINE, MOVING HIGHLIGHT 

399 OFF SCREEN WHEN LINE MOVES OFF SCREEN 
400 

401 set whichHighlight = mbxG^whichLine + mbxG subtractLine 

402 - 

403 if WhichHighlight <= 0 or whichHighlight >= 22 then 

404 set the loc of sprite 11 to point (11, -17) 

405 else 

^06 set the locV of Sprite 11 to (99 + linePosToLocV (member 

407 "MailboxTo", whichHighlight)) 

408 end if 
409 

4 1 0 updateStage 

41 1 

412 end repeat 
413 

4 1 4 end 
415 
416 
417 

418 on mouseUp 
419 

42 0 global mbxG_whichLine, mbxG messages- 

421 " 

422 if mbxG_whichLine = 0 then 

423 alert "Select a message by clicking with your mouse. 
42 4 return (0) 



script of cast member Open 
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425 end if 
426 

427 set raailData = getAt (mbxG_messages, inbxG_whichLine) 

428 

429 

430 tell the stage 
431 

432 einh_passMessage(inailData, mbxG whichLine) 

433 

434 end tell 
435 

436 end 
437 
438 
439 

440 -- script of cast member closeWindow 

441 

442 on mouseUp 
443 

444 — Close the mailbox window 
445 

446 tell the stage to emh_killComponent ( ) 
447 

448 end 
449 
450 
451 



— script o£ cast member mailBoxHilight 

on mouseUp 

if the doxibleClick then inbx_getMessage ( ) 

— Jeff is working on this : 

— global inbxG_whichLine, inbxG_subtractLine, mbxG_mes sages, 
inbxG_c 1 i ckCount 

— set whichHighlight = inbxG_whichLine + inbxG_subtractLine 

— set mailData = getAt (inbxG_jnessages , inbxG_whichLine) 

— repeat while whichHighlight <> 0 

put " true " 
tell the stage 

emh_passMessage (mailData, mbxG_whichLine ) 
end tell 
end if 

— end repeat 
end 



453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 



